home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / gnat1792.zip / gnat179b / t-adainc / i-cobol.ads < prev    next >
Text File  |  1994-05-19  |  22KB  |  409 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT COMPILER COMPONENTS                         --
  4. --                                                                          --
  5. --                      I N T E R F A C E S . C O B O L                     --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.2 $                              --
  10. --                                                                          --
  11. --           Copyright (c) 1992,1993,1994 NYU, All Rights Reserved          --
  12. --                                                                          --
  13. -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  14. -- terms of the  GNU General Public License as published  by the Free Soft- --
  15. -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  16. -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  17. -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  18. -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  19. -- for  more details.  You should have  received  a copy of the GNU General --
  20. -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  21. -- to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. --
  22. --                                                                          --
  23. ------------------------------------------------------------------------------
  24.  
  25. package Interfaces.COBOL is
  26.  
  27.    --  Types and operations for internal data representations
  28.  
  29.    type Floating      is new Float;
  30.    type Long_Floating is new Long_Float;
  31.  
  32.    type Binary      is new Integer;
  33.    type Long_Binary is new Long_Long_Integer;
  34.  
  35.    Max_Digits_Binary      : constant := 9;
  36.    Max_Digits_Long_Binary : constant := 18;
  37.  
  38.    type Decimal_Element  is mod 16;
  39.    type Packed_Decimal is array (Positive range <>) of Decimal_Element;
  40.    pragma Pack (Packed_Decimal);
  41.  
  42.    type Character is new Standard.Character;
  43.    subtype COBOL_Character is Character;
  44.  
  45.    Ada_To_COBOL : array (Standard.Character) of COBOL_Character := (
  46.      COBOL_Character'Val (000), COBOL_Character'Val (001),
  47.      COBOL_Character'Val (002), COBOL_Character'Val (003),
  48.      COBOL_Character'Val (004), COBOL_Character'Val (005),
  49.      COBOL_Character'Val (006), COBOL_Character'Val (007),
  50.      COBOL_Character'Val (008), COBOL_Character'Val (009),
  51.      COBOL_Character'Val (010), COBOL_Character'Val (011),
  52.      COBOL_Character'Val (012), COBOL_Character'Val (013),
  53.      COBOL_Character'Val (014), COBOL_Character'Val (015),
  54.      COBOL_Character'Val (016), COBOL_Character'Val (017),
  55.      COBOL_Character'Val (018), COBOL_Character'Val (019),
  56.      COBOL_Character'Val (020), COBOL_Character'Val (021),
  57.      COBOL_Character'Val (022), COBOL_Character'Val (023),
  58.      COBOL_Character'Val (024), COBOL_Character'Val (025),
  59.      COBOL_Character'Val (026), COBOL_Character'Val (027),
  60.      COBOL_Character'Val (028), COBOL_Character'Val (029),
  61.      COBOL_Character'Val (030), COBOL_Character'Val (031),
  62.      COBOL_Character'Val (032), COBOL_Character'Val (033),
  63.      COBOL_Character'Val (034), COBOL_Character'Val (035),
  64.      COBOL_Character'Val (036), COBOL_Character'Val (037),
  65.      COBOL_Character'Val (038), COBOL_Character'Val (039),
  66.      COBOL_Character'Val (040), COBOL_Character'Val (041),
  67.      COBOL_Character'Val (042), COBOL_Character'Val (043),
  68.      COBOL_Character'Val (044), COBOL_Character'Val (045),
  69.      COBOL_Character'Val (046), COBOL_Character'Val (047),
  70.      COBOL_Character'Val (048), COBOL_Character'Val (049),
  71.      COBOL_Character'Val (050), COBOL_Character'Val (051),
  72.      COBOL_Character'Val (052), COBOL_Character'Val (053),
  73.      COBOL_Character'Val (054), COBOL_Character'Val (055),
  74.      COBOL_Character'Val (056), COBOL_Character'Val (057),
  75.      COBOL_Character'Val (058), COBOL_Character'Val (059),
  76.      COBOL_Character'Val (060), COBOL_Character'Val (061),
  77.      COBOL_Character'Val (062), COBOL_Character'Val (063),
  78.      COBOL_Character'Val (064), COBOL_Character'Val (065),
  79.      COBOL_Character'Val (066), COBOL_Character'Val (067),
  80.      COBOL_Character'Val (068), COBOL_Character'Val (069),
  81.      COBOL_Character'Val (070), COBOL_Character'Val (071),
  82.      COBOL_Character'Val (072), COBOL_Character'Val (073),
  83.      COBOL_Character'Val (074), COBOL_Character'Val (075),
  84.      COBOL_Character'Val (076), COBOL_Character'Val (077),
  85.      COBOL_Character'Val (078), COBOL_Character'Val (079),
  86.      COBOL_Character'Val (080), COBOL_Character'Val (081),
  87.      COBOL_Character'Val (082), COBOL_Character'Val (083),
  88.      COBOL_Character'Val (084), COBOL_Character'Val (085),
  89.      COBOL_Character'Val (086), COBOL_Character'Val (087),
  90.      COBOL_Character'Val (088), COBOL_Character'Val (089),
  91.      COBOL_Character'Val (090), COBOL_Character'Val (091),
  92.      COBOL_Character'Val (092), COBOL_Character'Val (093),
  93.      COBOL_Character'Val (094), COBOL_Character'Val (095),
  94.      COBOL_Character'Val (096), COBOL_Character'Val (097),
  95.      COBOL_Character'Val (098), COBOL_Character'Val (099),
  96.      COBOL_Character'Val (100), COBOL_Character'Val (101),
  97.      COBOL_Character'Val (102), COBOL_Character'Val (103),
  98.      COBOL_Character'Val (104), COBOL_Character'Val (105),
  99.      COBOL_Character'Val (106), COBOL_Character'Val (107),
  100.      COBOL_Character'Val (108), COBOL_Character'Val (109),
  101.      COBOL_Character'Val (110), COBOL_Character'Val (111),
  102.      COBOL_Character'Val (112), COBOL_Character'Val (113),
  103.      COBOL_Character'Val (114), COBOL_Character'Val (115),
  104.      COBOL_Character'Val (116), COBOL_Character'Val (117),
  105.      COBOL_Character'Val (118), COBOL_Character'Val (119),
  106.      COBOL_Character'Val (120), COBOL_Character'Val (121),
  107.      COBOL_Character'Val (122), COBOL_Character'Val (123),
  108.      COBOL_Character'Val (124), COBOL_Character'Val (125),
  109.      COBOL_Character'Val (126), COBOL_Character'Val (127),
  110.      COBOL_Character'Val (128), COBOL_Character'Val (129),
  111.      COBOL_Character'Val (130), COBOL_Character'Val (131),
  112.      COBOL_Character'Val (132), COBOL_Character'Val (133),
  113.      COBOL_Character'Val (134), COBOL_Character'Val (135),
  114.      COBOL_Character'Val (136), COBOL_Character'Val (137),
  115.      COBOL_Character'Val (138), COBOL_Character'Val (139),
  116.      COBOL_Character'Val (140), COBOL_Character'Val (141),
  117.      COBOL_Character'Val (142), COBOL_Character'Val (143),
  118.      COBOL_Character'Val (144), COBOL_Character'Val (145),
  119.      COBOL_Character'Val (146), COBOL_Character'Val (147),
  120.      COBOL_Character'Val (148), COBOL_Character'Val (149),
  121.      COBOL_Character'Val (150), COBOL_Character'Val (151),
  122.      COBOL_Character'Val (152), COBOL_Character'Val (153),
  123.      COBOL_Character'Val (154), COBOL_Character'Val (155),
  124.      COBOL_Character'Val (156), COBOL_Character'Val (157),
  125.      COBOL_Character'Val (158), COBOL_Character'Val (159),
  126.      COBOL_Character'Val (160), COBOL_Character'Val (161),
  127.      COBOL_Character'Val (162), COBOL_Character'Val (163),
  128.      COBOL_Character'Val (164), COBOL_Character'Val (165),
  129.      COBOL_Character'Val (166), COBOL_Character'Val (167),
  130.      COBOL_Character'Val (168), COBOL_Character'Val (169),
  131.      COBOL_Character'Val (170), COBOL_Character'Val (171),
  132.      COBOL_Character'Val (172), COBOL_Character'Val (173),
  133.      COBOL_Character'Val (174), COBOL_Character'Val (175),
  134.      COBOL_Character'Val (176), COBOL_Character'Val (177),
  135.      COBOL_Character'Val (178), COBOL_Character'Val (179),
  136.      COBOL_Character'Val (180), COBOL_Character'Val (181),
  137.      COBOL_Character'Val (182), COBOL_Character'Val (183),
  138.      COBOL_Character'Val (184), COBOL_Character'Val (185),
  139.      COBOL_Character'Val (186), COBOL_Character'Val (187),
  140.      COBOL_Character'Val (188), COBOL_Character'Val (189),
  141.      COBOL_Character'Val (190), COBOL_Character'Val (191),
  142.      COBOL_Character'Val (192), COBOL_Character'Val (193),
  143.      COBOL_C